Function: cvs-fileinfo->full-name

cvs-fileinfo->full-name is a byte-compiled function defined in pcvs-info.el.gz.

Signature

(cvs-fileinfo->full-name FILEINFO)

Documentation

Return the full path for the file that is described in FILEINFO.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/pcvs-info.el.gz
;; Fake selectors:

(defun cvs-fileinfo->full-name (fileinfo)
  "Return the full path for the file that is described in FILEINFO."
  (let ((dir (cvs-fileinfo->dir fileinfo)))
    (if (eq (cvs-fileinfo->type fileinfo) 'DIRCHANGE)
	(if (string= dir "") "." (directory-file-name dir))
      ;; Here, I use `concat' rather than `expand-file-name' because I want
      ;; the resulting path to stay relative if `dir' is relative.
      (concat dir (cvs-fileinfo->file fileinfo)))))